100 REM BEISPIEL "MITTERNACHTSFORMEL"
110 PRINT "LOESUNG EINER QUADRATISCHEN GLEICHUNG"
120 INPUT "KOEFFIZIENTEN A,B,C ";A,B,C : PRINT
130 D=B*B-4*A*C
140 CASE IF D>=0
150 :    CASE IF D>0
160 :         PRINT "ZWEI LOESUNGEN"
170 :         PRINT "X1 =";(-B+SQR(D))/(2*A)
180 :         PRINT "X2 =";(-B-SQR(D))/(2*A)
190 :    CASE ELSE
200 :         PRINT "EINE LOESUNG"
210 :         PRINT "X =";-B/(2*A)
220 :    CASE END
230 CASE ELSE
240 :    PRINT "KEINE REELLE LOESUNG"
250 CASE END
260 END